home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 128 #26 / q26.d81 / t.quicktext 1995 < prev    next >
Encoding:
Text File  |  1991-01-01  |  1.6 KB  |  43 lines
  1.  
  2.  
  3.                         Q U I C K T E X T    1 9 9 5
  4.  
  5.                            Text by Fender Tucker
  6.  
  7.  
  8.     On LS 128 #24 I described the problems I was having with QUICKTEXT, an
  9. ML routine that allows a program to BLOAD text into BANK 1, where it's
  10. quickly turned into a string array.  There's not enough room on the disk to
  11. repeat the details of QUICKTEXT here, but here is the code to use:
  12.  
  13.   50 dima$(200) :rem as many lines of text as you need
  14.  
  15.  60 bload"coquicktext",u(dv),b1,p4864
  16.  
  17.  70 bload"petascii text file",u(dv),b1,p5376
  18.  
  19.  80 w=pointer(a$(0)):bank1:sys4864,w-256*int(w/256),int(w/256):bank15
  20.  
  21.  The complete text will miraculously be found in the array a$(x).
  22.  
  23.      The problem was that it could only be called 40 times before
  24. encountering memory errors.  Tomas Gustafsson of Hjaltevad Sweden wrote me
  25. a scholarly letter explaining how he had solved the problem by clearing the
  26. array and causing a garbage collection each time the routine is called.  I
  27. wish I had room to print his letter here.  He also sent me a disk with the
  28. fixed QUICKTEXT object file on it.  It can be called as many times as you
  29. want in a program, now.
  30.  
  31.     Use "coquicktext" or "messier.qt" on this disk if you have a program
  32. that could benefit from fast transference from disk PETASCII text file to
  33. subscripted strings.  Thanks, Tomas!
  34.  
  35. NOTE: The program "quicktext.80" and its ML routine "qt80.o" used by Copy
  36. It were made specifically for reading text after copying.  They are NOT the
  37. ones to use in your program.  Use "coquicktext" or "messier.qt".
  38.  
  39. FT
  40.  
  41.                         \\\\\ RETURN - Menu \\\\\
  42.                                                                            
  43.